home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / title page.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  53 lines
  1. 5 REM   TITLE PAGE BY: R.D. SWIFT     :
  2. 7 REM   SEE COMMENTS AT THE END.      :
  3. 10 DIMP$(6):PRINT"[147]INDENT PRINT ?";:N=40:NL=1:B$=" ":H$=CHR$(241)
  4. 15 REM CHR$(241) IS HORIZONTAL LINE ON THE PRINTER
  5. 20 GETA$:IFA$<>"Y"ANDA$<>"N"THEN20
  6. 25 PRINTA$;"":OPEN4,4:PRINT#4,CHR$(27)CHR$(64):REM INITIALIZE PRINTER
  7. 30 IFA$="Y"THENPRINT#4,CHR$(27)CHR$(77)CHR$(10):N=35:REM SET LH PRINT MARGIN
  8. 40 PRINTTAB(16)"[145]";NL:INPUT"[145]NUMBER OF LINES";NL
  9. 50 IFNL<1ORNL>6THEN40:REM 6 LINES MAX
  10. 60 ML=0:PRINT"LINES TO BE 28 CHARACTERS MAXIMUM"
  11. 70 FORI=1TONL:P$(I)="-"
  12. 80 PRINT"[145]LINE";I;TAB(9);P$(I):PRINTTAB(7);:INPUT"[145]";P$(I)
  13. 90 IFLEN(P$(I))>28THEN80
  14. 100 IFLEN(P$(I))>MLTHENML=LEN(P$(I))
  15. 110 PRINT:NEXT:FORI=1TO6:B$=B$+B$:H$=H$+H$:NEXT
  16. 120 T$=CHR$(14)+LEFT$(B$,INT((N-ML-4)/2)):FORI=1TO15-NL:PRINT#4,T$:NEXT
  17. 125 REM T$ IS THE TAB SPACES
  18. 130 PRINT#4,T$;CHR$(240);LEFT$(H$,ML+2);CHR$(242)
  19. 135 REM CHR$(240) = OR CHARACTER ON PRINTER
  20. 136 REM CHR$(242) = ^ CHARACTER ON PRINTER
  21. 137 REM CHR$(246) = / CHARACTER ON PRINTER
  22. 138 REM CHR$(247) = EXP CHARACTER ON PRINTER
  23. 139 REM CHR$(245) = VERTICAL LINE CHARACTER ON PRINTER
  24. 140 BP$=T$+CHR$(245)+LEFT$(B$,ML+2)+CHR$(245):PRINT#4,BP$
  25. 150 FORI=1TONL:P$=P$(I)
  26. 160 IFLEN(P$)<ML+2THENP$=P$+" "
  27. 170 IFLEN(P$)<ML+2THENP$=" "+P$:GOTO160
  28. 180 PRINT#4,T$;CHR$(245);P$;CHR$(245):PRINT#4,BP$:NEXT
  29. 190 PRINT#4,T$;CHR$(246);LEFT$(H$,ML+2);CHR$(247):PRINT#4,CHR$(27)CHR$(64):CLOSE4
  30. 200 REM:                              :
  31. 201 REM:          TITLE PAGE          :
  32. 202 REM:                              :
  33. 203 REM:              BY              :
  34. 204 REM:                              :
  35. 205 REM:          BOB SWIFT           :
  36. 206 REM:                              :
  37. 207 REM:                              :
  38. 208 REM:    THIS PROGRAM WAS WRITTEN  :
  39. 209 REM:  TO RUN ON A COMMODORE 64    :
  40. 210 REM:  COMPUTER WITH A GEMINI-10X  :
  41. 211 REM:  PRINTER.                    :
  42. 212 REM:                              :
  43. 213 REM:    IF YOU ARE USING A        :
  44. 214 REM:  DIFFERENT PRINTER, YOU MAY  :
  45. 215 REM:  HAVE TO CHANGE SOME OF THE  :
  46. 216 REM:  PRINTER CODES TO SUIT YOUR  :
  47. 217 REM:  PARTICULAR SET-UP.          :
  48. 218 REM:                              :
  49. 219 REM:    I HOPE THAT THIS PROGRAM  :
  50. 220 REM:  HELPS YOU AS MUCH AS IT HAS :
  51. 221 REM:  HELPED ME. GOOD LUCK.       :
  52. 222 REM:                              :
  53.